home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).zip / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).do / REELL.5.bas < prev    next >
BASIC Source File  |  1996-12-24  |  963b  |  20 lines
  1. 0  PRINT "<CTRL-D>OPENPROGRAMM.L": PRINT "<CTRL-D>APPENDPROGRAMM.L": PRINT "<CTRL-D>WRITEPROGRAMM.L": LIST 1,60000: PRINT "<CTRL-D>CLOSE": END 
  2. 100  REM +------------+
  3. 110  REM !            !
  4. 120  REM ! Dualbr}che !
  5. 130  REM !            !
  6. 140  REM +------------+
  7. 150  CLEAR : DIM S(33): TEXT : HOME : ONERR  GOTO 150
  8. 160  INPUT "WELCHE ZAHL? ";S$: REM 2 ^ 32 > Betrag > 2 ^ (-34) 
  9. 170 V$ = "+": IF  LEFT$(S$,1) = "-"  THEN V$ = "-":S$ =  RIGHT$(S$, LEN(S$) -1)
  10. 180  IF  LEFT$(S$,1) = "."  THEN S$ = "0" +S$
  11. 190 S =  VAL(S$): HOME : PRINT : PRINT V$S$: PRINT : PRINT "= "V$"%";: IF S <1  THEN I =  -1
  12. 200  IF S >2 ^EX  THEN EX = EX +1: GOTO 200
  13. 210  IF S <2 ^EX  THEN EX = EX -1:I = I +(S <1): GOTO 210
  14. 220  IF S <2 ^EX  THEN S(I) = 0
  15. 230  IF S > = 2 ^EX  THEN S(I) = 1:S = S -2 ^EX
  16. 240 EX = EX -1:I = I +1: IF EX =  -1  THEN BP = I
  17. 250  IF I <32  THEN 220
  18. 260  IF BP = 0  THEN  PRINT "0";
  19. 270  FOR I = 0 TO 33: IF I = BP  THEN  PRINT ".";
  20. 280  PRINT S(I);: NEXT